SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TXMVTO_CNTB_Q38]                                      
/*---------------------------------------------------------------------*/                                      
/*----- Empresa          : OFISIS S.A.                            -----*/                                      
/*----- Cliente          : OFISIS S.A.                            -----*/                                      
/*----- Sistema          : Contabilidad                           -----*/                                      
/*----- Modulo           : Empresa                                -----*/                                      
/*----- Programa         : Reporte de Ajuste por Inflacion        -----*/                                      
/*----- Nombre           : SP_TXMVTO_CNTB_Q38                     -----*/                                      
/*----- Script           : TXMVTO_CNTB                            -----*/                                      
/*----- Desarrollado     : Percy Garcia                           -----*/                                      
/*----- Fecha            : 17/11/2003                             -----*/                                      
/*----- Base de Datos    : MS SQL Server                          -----*/                                      
/*----- Version BD       : 2000                                   -----*/                                      
/*----- Invoca a SP      : SP_TXMVTO_CNTB_I30                     -----*/                                      
/*---------------------------------------------------------------------*/                                      
/*----- Comentarios      : Ajuste para Cuentas != Inventario      -----*/                                      
/*---------------------------------------------------------------------*/                                      
/*---------------------------------------------------------------------*/                                      
/*----- Drop Proc SP_TXMVTO_CNTB_Q38                              -----*/                                      
/*----- Grant ALL   On SP_TXMVTO_CNTB_Q38 To PUBLIC               -----*/                                      
/*----- SP_TXMVTO_CNTB_Q38 '01', 1, 'SOL', '001', 2004, 2,                                     
2004, 1, 'MEN', 5, 'TOD'      				          -----*/                                      
/*---------------------------------------------------------------------*/                                      
                            
@ISCO_EMPR           TD_VC_002,                                      
@INNU_CNTB_EMPR      TD_IN_001_CONT,                                      
@ISCO_MONE           TD_VC_003,                                      
@ISCO_UNID_CNTB      TD_VC_003,                                      
@INNU_ANNO           TD_IN_004_ANNO,                                      
@INNU_MESE           TD_IN_002_MESE,                                      
@INNU_ANNO_HIST      TD_IN_004_ANNO,                                      
@INNU_MESE_HIST      TD_IN_002_MESE,                                      
@ISST_TIPO_ACTU      TD_VC_003,                                     
@INNV_INFO_CNTA      TD_IN_001,                           
@ISTI_REPO           TD_VC_003                                      
                            
As                                      
                            
 Declare                                       
                                   
 @CSCO_CNTA_EMPR     TD_VC_020,                                       
 @CSST_VALO_LIMI     TD_VC_001,                                       
 @CNIM_LIMI          TD_NU_016_004,                                       
 @CNIM_VALO_AUXI     TD_NU_016_004,                                       
 @CSCO_MONE_LIAU     TD_VC_003,                                       
 @CSST_NIVE_AJUS     TD_VC_003,                                       
 @CSTI_AUXI_EMPR     TD_VC_001,                                       
 @CSCO_AUXI_EMPR     TD_VC_020,          
 @CSTI_DOCU          TD_VC_003,                                       
 @CSNU_DOCU    TD_VC_020,                                       
 @CNNU_ANNO          TD_IN_004_ANNO,                          
 @CNNU_MESE          TD_IN_002_MESE,                                      
 @CNNU_SALD         TD_NU_016_004,                                      
 @CSCO_MONE_LIMI     TD_VC_003,                  
 @CSST_TIPO_CAMB     TD_VC_003,                                      
 @CSST_CNTA_CAMB     TD_VC_003,                              
 @CSCO_CNTA_REIB     TD_VC_020,                                      
 @CSCO_CNTA_REIR     TD_VC_020,                                  
 @VNHT_CARG          TD_NU_016_004,                                        
 @VNHT_ABON          TD_NU_016_004,                                        
 @VNFA_ACTU          TD_NU_009_004,                                      
 @VNFA_ACTU_INVE     TD_NU_009_004,                                      
 @VNAT_CARG          TD_NU_016_004,                                      
 @VNAT_ABON          TD_NU_016_004,                              
 @VNVA_REIN          TD_NU_016_004,                                      
 @VNNU_IND1          TD_NU_009_004,                                       
 @VNNU_IND2     TD_NU_009_004,                                      
 @VNNU_IND3          TD_NU_009_004,                                      
 @VNNU_INDX          TD_NU_009_004,                                      
 @VNNU_SECU          TD_IN_001,                                    
 @VNNU_ULTI_ASTO     TD_IN_001,                                     
 @VSNU_ASTO          TD_VC_010,                                     
 @VSCO_CNTA_REIB     TD_VC_020,                                     
 @VSCO_CNTA_REIR     TD_VC_020,                                     
 @VSCO_CNTA_EMPR     TD_VC_020,                                     
 @VSTI_OPER          TD_VC_003,                                     
 @VSTI_OPER_0001     TD_VC_003,                                     
 @VDFE_ASTO_CNTB     TD_DT_001,                                     
 @VSST_FLAG          TD_VC_001,                                     
 @VSST_FLAG_0001     TD_VC_001,                                     
 @VNNU_ANNO_HI01     TD_IN_001,                                     
 @VNNU_MESE_HI01     TD_IN_001,                                     
 @VNNU_ANNO_0001     TD_IN_001,                                     
 @VNNU_MESE_0001     TD_IN_001,                                     
 @VNFA_ACTU_0002     TD_NU_016_004,                                     
 @VNIM_SALD_HIST     TD_NU_016_004,                                     
 @VNVA_ACTU_MESE     TD_NU_016_004,                                     
 @VNVA_ACTU_ANTE     TD_NU_016_004,                                     
 @VNIM_MVTO_ANTE     TD_NU_016_004,                                     
 @CDFE_DOCU          TD_DT_001,                                     
 @VSDE_GLOS          Varchar(50),                                     
 @VSCO_MONE_0001     TD_VC_003,                                     
 @VSCO_MONE_BA01     TD_VC_003,                                     
 @VNIM_EVAL_LIMI     TD_NU_016_004,                         
 @VSID_CTAS_INVE     TD_VC_003,                                
 @VNFA_CAMB          TD_NU_016_004,                   
 @VNVA_0001          TD_NU_015_006,           
 @VSST_REEM_ASIE     TD_VC_001,           
 @VSST_ACTI          TD_VC_001,          
 @VSST_LOGI          TD_VC_001,          
 @VSST_PROD          TD_VC_001,          
 @VSID_0005          TD_VC_003,          
 @VSID_COMP          TD_VC_003,          
 @VSID_CTAS_PROD     TD_VC_003,           
 @VSST_GENE_ACTI     TD_VC_001,           
 @VSST_GENE_LOGI     TD_VC_001,           
 @VSST_GENE_PROD     TD_VC_001,
 @VNIM_MESE_HIST     TD_NU_016_004,
 @CNIM_MESE_ACTU     TD_NU_016_004  
                                    
 Select  @CNNU_SALD = 0,                                      
 @VNHT_CARG = 0,                                      
 @VNHT_ABON = 0,                                      
 @VNFA_ACTU = 0,                 
 @VNAT_CARG = 0,                                      
 @VNAT_ABON = 0,                                      
 @VNVA_REIN = 0,                                      
 @VNNU_IND2 = 0.00,             
 @VNNU_IND1 = 0.00,                                   
 @VNNU_SECU = 1                                      
                          
 Create Table #TWMVTO_CNT1                          
 (CO_CNTA_EMPR Varchar(20) NULL,                           
  TI_AUXI_EMPR Varchar(1) NULL,                           
  CO_AUXI_EMPR Varchar(20) NULL,                           
  TI_DOCU Varchar(3) NULL,                           
  NU_DOCU Varchar(20) NULL,                           
  IM_MVTO_CNTB Numeric (16, 4) NULL,                           
  FA_ACTU Numeric(9, 4) NULL,                           
  IM_MVTO_ANTE Numeric(16, 4) NULL,                           
  FA_ACTU_ANTE Numeric (9, 4) NULL,                           
  ST_FLAG Varchar(1) NULL,                       
  IM_SALD_MESE Numeric(16, 4) NULL,                       
  FA_ACTU_MESE Numeric(9, 4),                       
  IM_SALD_ANTE Numeric(16, 4),                       
  FA_ACTU_ANT1 Numeric(9, 4),                       
  VA_REIN Numeric(16, 4),                       
  IM_LIMI Numeric(16, 4) )                          
                                               
 /* obtengo indice de actualizacion a mes actual */                                      
 Select @VNNU_IND1 = IN_ACTU                                      
 From   TTINDI_ACTU                                         
 Where NU_ANNO = @INNU_ANNO                                       
 And NU_MESE = @INNU_MESE                            
                                    
 /* obtengo indice de actualizacion a mes historico */                                      
 Select @VNNU_IND2 = IsNull(IN_ACTU,1)                                      
 From   TTINDI_ACTU                                         
 Where NU_ANNO = @INNU_ANNO_HIST                                       
 And NU_MESE = @INNU_MESE_HIST                                      
                                    
 /* obtengo indice de actualizacion a mes anterior al historico */                                      
 If @ISST_TIPO_ACTU = 'MEN'                                    
 Begin                 
                            
  If @INNU_MESE_HIST = 1                                    
  Begin                                     
  Select @VNNU_ANNO_HI01 = @INNU_ANNO_HIST - 1                                    
  Select @VNNU_MESE_HI01 = 12                                    
  End                                     
                                    
  If @INNU_MESE_HIST > 1                        
  Begin                                     
  Select @VNNU_ANNO_HI01 = @INNU_ANNO_HIST                                    
  Select @VNNU_MESE_HI01 = @INNU_MESE_HIST - 1                                    
  End                                      
 End                                     
                            
 Else -- ACTUALIZ. ANUAL                                    
                            
 Begin                                     
                                    
  Select @VNNU_ANNO_HI01 = @INNU_ANNO_HIST - 1                                    
  Select @VNNU_MESE_HI01 = 12                                    
                                     
 End /*FIN  If @ISST_TIPO_ACTU = 'MEN' */                                    
                                      
                                    
 Select @VNNU_IND3 = IN_ACTU                                      
 From   TTINDI_ACTU                     
 Where NU_ANNO = @VNNU_ANNO_HI01                                       
 And NU_MESE = @VNNU_MESE_HI01                                      
                                    
                                         
 If @VNNU_IND2 IS NULL or @VNNU_IND2 = 0.00                                      
  Select @VNNU_IND2 = 1.00      
                                    
 If @VNNU_IND3 IS NULL or @VNNU_IND3 = 0.00                                      
  Select @VNNU_IND3 = 1.00                                      
                                    
 -- FACTOR AL MES ACTUAL                                     
 Select @VNFA_ACTU = @VNNU_IND1 / @VNNU_IND2                    
 Select @VNFA_ACTU = Round(@VNFA_ACTU, 3 )                                 
                              
 Select @VNFA_ACTU_INVE = @VNFA_ACTU                                   
                                    
 -- FACTOR AL MES ANTERIOR                                    
 Select @VNFA_ACTU_0002 = @VNNU_IND2 / @VNNU_IND3                                      
 Select @VNFA_ACTU_0002 = Round(@VNFA_ACTU_0002, 3 )                       
                    
/* Select @VSID_CTAS_INVE = RTRIM(ID_CTAS_INVE)                       
 From TTCNTB_EMPR                       
 Where CO_EMPR = @ISCO_EMPR                       
 And NU_CNTB_EMPR = @INNU_CNTB_EMPR     */                                
 Select @VSID_0005 = IsNull(ID_0005, ''),           
 @VSID_CTAS_INVE = IsNull(ID_CTAS_INVE, ''),           
 @VSID_CTAS_PROD = IsNull(ID_CTAS_PROD, ''),               
 @VSID_COMP = IsNull(ID_COMP, '')                      
 From TTCNTB_EMPR           
 Where CO_EMPR = @ISCO_EMPR           
 And NU_CNTB_EMPR = @INNU_CNTB_EMPR           
          
 Select @VSST_REEM_ASIE = ST_REEM_ASIE           
 From TMPARA_CONT           
 Where CO_EMPR = @ISCO_EMPR           
          
 Select @VSST_ACTI = IsNull(ST_ACTI, ''),           
 @VSST_PROD = IsNull(ST_PROD, ''),           
 @VSST_LOGI = IsNull(ST_LOGI, '')           
 From TMEMPR           
 Where CO_EMPR = @ISCO_EMPR           
          
 -- SI NO SE REEMPLAZA ENTONCES VERIFICA SI EXISTE EL SISTEMA ENTONCES ENTONCES NO REEMPLAZA           
 -- SI NO EXISTE ENTONCES REEMPLAZA          
 If @VSST_REEM_ASIE = 'N'          
  Begin           
  If @VSST_ACTI = 'S'          
     Select @VSST_GENE_ACTI = 'N'          
  Else           
     Select @VSST_GENE_ACTI = 'S'          
  If @VSST_LOGI = 'S'          
     Select @VSST_GENE_LOGI = 'N'          
  Else           
     Select @VSST_GENE_LOGI = 'S'          
  If @VSST_PROD = 'S'          
     Select @VSST_GENE_PROD = 'N'          
  Else           
     Select @VSST_GENE_PROD = 'S'          
  End           
 Else           
  Begin           
     Select @VSST_GENE_ACTI = 'S'          
     Select @VSST_GENE_LOGI = 'S'          
     Select @VSST_GENE_PROD = 'S'          
  End           
          
                                                   
 -- CURSOR DE CUENTAS A AJUSTAR (incluye las ctas de produccion) '030'y excluye las ctas de inventario '031'                                  
 If @ISTI_REPO = 'AJU' Or @ISTI_REPO = 'TOD'                           
 Begin                           
 Declare CU_TXMVTO_CNTB_I29_1 Cursor For                                     
 Select t2.CO_CNTA_EMPR, t2.ST_NIVE_AJUS, t2.ST_VALO_LIMI, t2.IM_LIMI, t2.CO_MONE, t2.ST_TIPO_CAMB, t2.ST_CNTA_CAMB,                         
 t2.CO_CNTA_REIB, t2.CO_CNTA_REIR                                
 From TMPLAN_EMPR t2                                    
 Where t2.CO_EMPR = @ISCO_EMPR                                     
 And t2.NU_ANNO = 9999                                    
 And t2.ST_AJUS = 'S'           
      
 And ( @VSST_REEM_ASIE = 'S' Or  (@VSST_REEM_ASIE = 'N'      
          
 And ( (@VSST_GENE_ACTI = 'S') Or ( @VSST_GENE_ACTI = 'N'           
 And Not Exists (Select tA.CO_EMPR From TTIDEN_CNTA tA           
 Where tA.CO_EMPR = @ISCO_EMPR           
 And tA.NU_CNTB_EMPR = @INNU_CNTB_EMPR           
 And tA.ID_CNTA = @VSID_0005           
 And tA.CO_CNTA_EMPR = t2.CO_CNTA_EMPR)))          
          
 And ( (@VSST_GENE_LOGI = 'S') Or ( @VSST_GENE_LOGI = 'N'           
 And Not Exists (Select tA.CO_EMPR From TTIDEN_CNTA tA           
 Where tA.CO_EMPR = @ISCO_EMPR           
 And tA.NU_CNTB_EMPR = @INNU_CNTB_EMPR           
 And tA.ID_CNTA = @VSID_CTAS_INVE          
 And tA.CO_CNTA_EMPR = t2.CO_CNTA_EMPR)))          
          
 And ( (@VSST_GENE_PROD = 'S') Or ( @VSST_GENE_PROD = 'N'           
 And Not Exists (Select tA.CO_EMPR From TTIDEN_CNTA tA           
 Where tA.CO_EMPR = @ISCO_EMPR           
 And tA.NU_CNTB_EMPR = @INNU_CNTB_EMPR           
 And tA.ID_CNTA = @VSID_CTAS_PROD          
 And tA.CO_CNTA_EMPR = t2.CO_CNTA_EMPR)))    ))      
                                   
 And DataLength(CO_CNTA_EMPR) = @INNV_INFO_CNTA                                    
 And  Not Exists(Select * From TTIDEN_CNTA t1      
   Where t1.CO_EMPR = @ISCO_EMPR                                    
   And t1.NU_CNTB_EMPR = @INNU_CNTB_EMPR                                    
   And t1.ID_CNTA = @VSID_CTAS_INVE                          
          And t1.CO_CNTA_EMPR = t2.CO_CNTA_EMPR                                     
   And t1.NU_ANNO = 9999)                               
 And (IsNull(t2.CO_CNTA_REIR, '') != '' Or IsNull(t2.CO_CNTA_REIB, '') != '')                                
 And t2.TI_SITU = 'ACT'                                    
 Order By t2.CO_CNTA_EMPR                                    
                                    
 Open CU_TXMVTO_CNTB_I29_1                                      
 Fetch CU_TXMVTO_CNTB_I29_1 Into @CSCO_CNTA_EMPR, @CSST_NIVE_AJUS, @CSST_VALO_LIMI, @CNIM_LIMI, @CSCO_MONE_LIMI,                      
 @CSST_TIPO_CAMB, @CSST_CNTA_CAMB, @CSCO_CNTA_REIB, @CSCO_CNTA_REIR                               
 While @@Fetch_status = 0                                      
 Begin                                     
                                    
  -- AJUSTE X DOCUMENTO                                    
  If @CSST_NIVE_AJUS = 'DOC'                                    
  Begin                                     
  Declare CU_TXMVTO_CNTB_I29_2 Cursor For                                      
  Select  t1.CO_CNTA_EMPR, t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR, t1.TI_DOCU,  t1.NU_DOCU,                 
  IsNull(Sum( ((Ascii(TI_OPER)/67)* IsNull(IM_MVTO_CNTB, 0))), 0)                                     
  - IsNull(Sum(((65/Ascii(TI_OPER))* IsNull(IM_MVTO_CNTB, 0))), 0), Min(t1.FE_DOCU), NULL, @CSCO_MONE_LIMI, 
  IsNull(Max(T2.IMPORTE), 0.00)
  From TXMVTO_CNTB t1 LEFT OUTER JOIN (Select CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, TI_DOCU, NU_DOCU,
			IsNull(Sum(((Ascii(TI_OPER)/67)* IsNull(IM_MVTO_CNTB, 0))), 0)                                     
			- IsNull(Sum(((65/Ascii(TI_OPER))* IsNull(IM_MVTO_CNTB, 0))), 0) AS IMPORTE
		   From TXMVTO_CNTB 
		   Where CO_EMPR = @ISCO_EMPR                                      
		   And  NU_CNTB_EMPR = @INNU_CNTB_EMPR                                      
		   And  NU_ANNO = @INNU_ANNO                               
		   And  NU_MESE = @INNU_MESE
		   And  CO_CNTA_EMPR = @CSCO_CNTA_EMPR                                     
		   And  SI_MVTO_CNTB = 'APR'                                      
		   Group By CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, TI_DOCU, NU_DOCU) T2
ON t1.CO_CNTA_EMPR = t2.CO_CNTA_EMPR
   And  t1.TI_AUXI_EMPR = t2.TI_AUXI_EMPR
   And  t1.CO_AUXI_EMPR = t2.CO_AUXI_EMPR
   And  t1.TI_DOCU = t2.TI_DOCU
   And  t1.NU_DOCU = t2.NU_DOCU
  Where t1.CO_EMPR = @ISCO_EMPR                                      
  And  t1.NU_CNTB_EMPR = @INNU_CNTB_EMPR                                      
  And  t1.NU_ANNO = @INNU_ANNO                                      
  And  t1.NU_MESE <= @INNU_MESE                                      
  And  t1.CO_CNTA_EMPR = @CSCO_CNTA_EMPR                                     
  And  t1.SI_MVTO_CNTB = 'APR'                                   
  Group By t1.CO_CNTA_EMPR, t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR, t1.TI_DOCU, t1.NU_DOCU                                      
  Order By t1.CO_CNTA_EMPR, t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR, t1.TI_DOCU, t1.NU_DOCU                                       
  End                                     
                                    
  -- AJUSTE X AUXILIAR                                    
  If @CSST_NIVE_AJUS = 'AUX'                                    
  Begin                                     
  Declare CU_TXMVTO_CNTB_I29_2 Cursor For                                      
  Select  t1.CO_CNTA_EMPR, t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR, NULL, NULL,                                     
  IsNull(Sum( ((Ascii(TI_OPER)/67)* IsNull(IM_MVTO_CNTB, 0))), 0)                                     
  - IsNull(Sum(((65/Ascii(TI_OPER))* IsNull(IM_MVTO_CNTB, 0))), 0), NULL, Max(t2.IM_VALO_LIMI), @CSCO_MONE_LIMI, 
  IsNull(Max(T3.IMPORTE), 0.00)
  From TXMVTO_CNTB t1 LEFT OUTER JOIN TMVALO_LIMI t2 
  ON t2.CO_EMPR = t1.CO_EMPR                          
  And  t2.CO_CNTA_EMPR = t1.CO_CNTA_EMPR                          
  And  t2.TI_AUXI_EMPR = t1.TI_AUXI_EMPR                          
  And  t2.CO_AUXI_EMPR = t1.CO_AUXI_EMPR                          
  LEFT OUTER JOIN 
		       (Select CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, 
                           IsNull(Sum( ((Ascii(TI_OPER)/67)* IsNull(IM_MVTO_CNTB, 0))), 0)                                     
			   - IsNull(Sum(((65/Ascii(TI_OPER))* IsNull(IM_MVTO_CNTB, 0))), 0) AS IMPORTE
			From TXMVTO_CNTB 
			Where CO_EMPR = @ISCO_EMPR                                      
   			And  NU_CNTB_EMPR = @INNU_CNTB_EMPR
   			And  NU_ANNO = @INNU_ANNO
   			And  NU_MESE = @INNU_MESE
   			And  CO_CNTA_EMPR = @CSCO_CNTA_EMPR
   			And  SI_MVTO_CNTB = 'APR'                                      
			Group By CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR) T3
  ON t1.CO_CNTA_EMPR = t3.CO_CNTA_EMPR
  And  t1.TI_AUXI_EMPR = t3.TI_AUXI_EMPR
  And  t1.CO_AUXI_EMPR = t3.CO_AUXI_EMPR
  Where t1.CO_EMPR = @ISCO_EMPR                                      
  And  t1.NU_CNTB_EMPR = @INNU_CNTB_EMPR                                      
  And  t1.NU_ANNO = @INNU_ANNO                                      
  And  t1.NU_MESE <= @INNU_MESE                                      
  And  t1.CO_CNTA_EMPR = @CSCO_CNTA_EMPR                        
  And  t1.SI_MVTO_CNTB = 'APR'                                 


  Group By t1.CO_CNTA_EMPR, t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR                                    
  Order By t1.CO_CNTA_EMPR, t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR        
  End                                     
                                    
  -- AJUSTE X CUENTA                                    
  If @CSST_NIVE_AJUS = 'CTA'                                    
  Begin                                     
  Declare CU_TXMVTO_CNTB_I29_2 Cursor For                                      
  Select  t1.CO_CNTA_EMPR, NULL, NULL, NULL, NULL,                                     
  IsNull(Sum(((Ascii(TI_OPER)/67)* IsNull(IM_MVTO_CNTB, 0))), 0)                                     
  - IsNull(Sum(((65/Ascii(TI_OPER))* IsNull(IM_MVTO_CNTB, 0))), 0), NULL, NULL, @CSCO_MONE_LIMI, 
  IsNull(Max(T2.IMPORTE), 0.00)
  From TXMVTO_CNTB t1 LEFT OUTER JOIN (Select CO_CNTA_EMPR, IsNull(Sum( ((Ascii(TI_OPER)/67)* IsNull(IM_MVTO_CNTB, 0))), 0)                                     
			       - IsNull(Sum(((65/Ascii(TI_OPER))* IsNull(IM_MVTO_CNTB, 0))), 0) AS IMPORTE
		   From TXMVTO_CNTB 
		   Where CO_EMPR = @ISCO_EMPR                                      
		   And  NU_CNTB_EMPR = @INNU_CNTB_EMPR                 
		   And  NU_ANNO = @INNU_ANNO
		   And  NU_MESE = @INNU_MESE
		   And  CO_CNTA_EMPR = @CSCO_CNTA_EMPR                                     
		   And  SI_MVTO_CNTB = 'APR'                                      
		   Group By CO_CNTA_EMPR) t2                                    
  ON  t1.CO_CNTA_EMPR = t2.CO_CNTA_EMPR
  Where t1.CO_EMPR = @ISCO_EMPR                                      
  And  t1.NU_CNTB_EMPR = @INNU_CNTB_EMPR                                      
  And  t1.NU_ANNO = @INNU_ANNO                                      
  And  t1.NU_MESE <= @INNU_MESE                                
  And  t1.CO_CNTA_EMPR = @CSCO_CNTA_EMPR
  And  t1.SI_MVTO_CNTB = 'APR'                           
  Group By t1.CO_CNTA_EMPR                              
  End                                  
                                        
 Open CU_TXMVTO_CNTB_I29_2                                      
 Fetch CU_TXMVTO_CNTB_I29_2 Into @CSCO_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR,                                     
 @CSTI_DOCU, @CSNU_DOCU, @CNNU_SALD, @CDFE_DOCU, @CNIM_VALO_AUXI, @CSCO_MONE_LIAU,
 @CNIM_MESE_ACTU
 While @@Fetch_status = 0                   
 Begin                                     
                                    
  If RTRIM(LTRIM(@CSTI_AUXI_EMPR)) = '' Select @CSTI_AUXI_EMPR = NULL                                  
  If RTRIM(LTRIM(@CSCO_AUXI_EMPR)) = '' Select @CSCO_AUXI_EMPR = NULL                                  
  If RTRIM(LTRIM(@CSTI_DOCU)) = '' Select @CSTI_DOCU = NULL                                  
  If RTRIM(LTRIM(@CSNU_DOCU)) = '' Select @CSNU_DOCU = NULL                                                           
                                  
  If @CSST_NIVE_AJUS = 'DOC'                                    
  Begin                                       
   -- SACA INDICE DE LA FECHA DE DOCUMENTO CASO AJUSTE SEA POR 'DOC'                                  
   If @CDFE_DOCU IS NOT NULL                                  
   Begin                                          
   Select @VNNU_INDX = IsNull(IN_ACTU, 1)                                    
   From TTINDI_ACTU                                    
   Where NU_ANNO = Year(@CDFE_DOCU)                                  
   And NU_MESE = Month(@CDFE_DOCU)                                    
   End                                   
                                    
   Select  @VNIM_SALD_HIST = 0                                  
   Select  @VNIM_SALD_HIST = IsNull(Sum( ((Ascii(TI_OPER)/67)* IsNull(IM_MVTO_CNTB, 0))), 0)                                     
           - IsNull(Sum(((65/Ascii(TI_OPER))* IsNull(IM_MVTO_CNTB, 0))), 0), 
           @VNIM_MESE_HIST = IsNull(Max(T2.IMPORTE), 0.00)
   From TXMVTO_CNTB t1 LEFT OUTER JOIN (Select CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, TI_DOCU, NU_DOCU,
                           IsNull(Sum(((Ascii(TI_OPER)/67)* IsNull(IM_MVTO_CNTB, 0))), 0)                                     
              		   - IsNull(Sum(((65/Ascii(TI_OPER))* IsNull(IM_MVTO_CNTB, 0))), 0) AS IMPORTE
		   From TXMVTO_CNTB 
		   Where CO_EMPR = @ISCO_EMPR                                      
		   And  NU_CNTB_EMPR = @INNU_CNTB_EMPR                                      
		   And  NU_ANNO = @INNU_ANNO_HIST                                      
		   And  NU_MESE = @INNU_MESE_HIST                                      
		   And  CO_CNTA_EMPR = @CSCO_CNTA_EMPR                                     
		   And  ((@CSTI_AUXI_EMPR IS NOT NULL And TI_AUXI_EMPR = @CSTI_AUXI_EMPR) Or  (NullIf(TI_AUXI_EMPR, '') IS NULL ))                                  
		   And  ((@CSCO_AUXI_EMPR IS NOT NULL And CO_AUXI_EMPR = @CSCO_AUXI_EMPR) Or  (NullIf(CO_AUXI_EMPR, '') IS NULL ))                                  
		   And  ((@CSTI_DOCU IS NOT NULL And TI_DOCU = @CSTI_DOCU) Or  (NullIf(TI_DOCU, '') IS NULL ))                                  
		   And  ((@CSNU_DOCU IS NOT NULL And NU_DOCU = @CSNU_DOCU) Or  (NullIf(NU_DOCU, '') IS NULL ))                                 
		   And  SI_MVTO_CNTB = 'APR'                                      
		   Group By CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, TI_DOCU, NU_DOCU) T2
   ON   t1.CO_CNTA_EMPR = t2.CO_CNTA_EMPR
   And  t1.TI_AUXI_EMPR = t2.TI_AUXI_EMPR
   And  t1.CO_AUXI_EMPR = t2.CO_AUXI_EMPR
   And  t1.TI_DOCU = t2.TI_DOCU
   And  t1.NU_DOCU = t2.NU_DOCU
   Where t1.CO_EMPR = @ISCO_EMPR                                      
   And  t1.NU_CNTB_EMPR = @INNU_CNTB_EMPR                                      
   And  t1.NU_ANNO = @INNU_ANNO_HIST                                      
   And  t1.NU_MESE <= @INNU_MESE_HIST                                      
   And  t1.CO_CNTA_EMPR = @CSCO_CNTA_EMPR                                     
   And  ((@CSTI_AUXI_EMPR IS NOT NULL And t1.TI_AUXI_EMPR = @CSTI_AUXI_EMPR) Or (NullIf(t1.TI_AUXI_EMPR, '') IS NULL ))                                  
   And  ((@CSCO_AUXI_EMPR IS NOT NULL And t1.CO_AUXI_EMPR = @CSCO_AUXI_EMPR) Or (NullIf(t1.CO_AUXI_EMPR, '') IS NULL ))                                  
   And  ((@CSTI_DOCU IS NOT NULL And t1.TI_DOCU = @CSTI_DOCU) Or (NullIf(t1.TI_DOCU, '') IS NULL ))                                  
   And  ((@CSNU_DOCU IS NOT NULL And t1.NU_DOCU = @CSNU_DOCU) Or (NullIf(t1.NU_DOCU, '') IS NULL ))                                 

   And  t1.SI_MVTO_CNTB = 'APR'                                      
   Group By t1.CO_CNTA_EMPR, t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR, t1.TI_DOCU, t1.NU_DOCU                                      
                                        
 End /*FIN @CSST_NIVE_AJUS = 'DOC'*/                                    
                                    
  If @CSST_NIVE_AJUS = 'AUX'                                    
 Begin                              
    Select  @VNIM_SALD_HIST = 0                                         
    Select  @VNIM_SALD_HIST = IsNull(Sum( ((Ascii(TI_OPER)/67)* IsNull(IM_MVTO_CNTB, 0))), 0)                                     
            - IsNull(Sum(((65/Ascii(TI_OPER))* IsNull(IM_MVTO_CNTB, 0))), 0), 
            @VNIM_MESE_HIST = IsNull(Max(T2.IMPORTE), 0.00)
   From TXMVTO_CNTB t1 LEFT OUTER JOIN  (Select CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, 
                           IsNull(Sum( ((Ascii(TI_OPER)/67)* IsNull(IM_MVTO_CNTB, 0))), 0)                                     
			   - IsNull(Sum(((65/Ascii(TI_OPER))* IsNull(IM_MVTO_CNTB, 0))), 0) AS IMPORTE
			From TXMVTO_CNTB 
			Where CO_EMPR = @ISCO_EMPR                                      
   			And  NU_CNTB_EMPR = @INNU_CNTB_EMPR
   			And  NU_ANNO = @INNU_ANNO_HIST
   			And  NU_MESE = @INNU_MESE_HIST
   			And  CO_CNTA_EMPR = @CSCO_CNTA_EMPR
   			And  ((@CSTI_AUXI_EMPR IS NOT NULL And TI_AUXI_EMPR = @CSTI_AUXI_EMPR) Or (NullIf(TI_AUXI_EMPR, '') IS NULL ))
   			And  ((@CSCO_AUXI_EMPR IS NOT NULL And CO_AUXI_EMPR = @CSCO_AUXI_EMPR) Or (NullIf(CO_AUXI_EMPR, '') IS NULL ))
   			And  SI_MVTO_CNTB = 'APR'                                      
			Group By CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR) T2                              
ON  t1.CO_CNTA_EMPR = t2.CO_CNTA_EMPR
   And  t1.TI_AUXI_EMPR = t2.TI_AUXI_EMPR
   And  t1.CO_AUXI_EMPR = t2.CO_AUXI_EMPR
   Where t1.CO_EMPR = @ISCO_EMPR                                      
   And t1.NU_CNTB_EMPR = @INNU_CNTB_EMPR                                      
   And  t1.NU_ANNO = @INNU_ANNO_HIST                                      
   And  t1.NU_MESE <= @INNU_MESE_HIST                                      
   And  t1.CO_CNTA_EMPR = @CSCO_CNTA_EMPR                                     
   And  ((@CSTI_AUXI_EMPR IS NOT NULL And t1.TI_AUXI_EMPR = @CSTI_AUXI_EMPR) Or  (NullIf(t1.TI_AUXI_EMPR, '') IS NULL ))                                  
   And  ((@CSCO_AUXI_EMPR IS NOT NULL And t1.CO_AUXI_EMPR = @CSCO_AUXI_EMPR) Or  (NullIf(t1.CO_AUXI_EMPR, '') IS NULL ))                                  

   And  t1.SI_MVTO_CNTB = 'APR'                                      
   Group By t1.CO_CNTA_EMPR, t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR                                    
 End                                     
                     
  If @CSST_NIVE_AJUS = 'CTA'                                    
 Begin                              
    Select  @VNIM_SALD_HIST = 0                                         
    Select  @VNIM_SALD_HIST = IsNull(Sum(((Ascii(TI_OPER)/67)* IsNull(IM_MVTO_CNTB, 0))), 0)                                     
                            - IsNull(Sum(((65/Ascii(TI_OPER))* IsNull(IM_MVTO_CNTB, 0))), 0), 
            @VNIM_MESE_HIST = IsNull(Max(T2.IMPORTE), 0.00)
   From TXMVTO_CNTB t1 LEFT OUTER JOIN  (Select CO_CNTA_EMPR, IsNull(Sum( ((Ascii(TI_OPER)/67)* IsNull(IM_MVTO_CNTB, 0))), 0)                                     
			        - IsNull(Sum(((65/Ascii(TI_OPER))* IsNull(IM_MVTO_CNTB, 0))), 0) AS IMPORTE
		   From TXMVTO_CNTB 
		   Where CO_EMPR = @ISCO_EMPR                                      
		   And  NU_CNTB_EMPR = @INNU_CNTB_EMPR                 
		   And  NU_ANNO = @INNU_ANNO_HIST                                      
		   And  NU_MESE = @INNU_MESE_HIST                                      
		   And  CO_CNTA_EMPR = @CSCO_CNTA_EMPR                                     
		   And  SI_MVTO_CNTB = 'APR'                                      
		   Group By CO_CNTA_EMPR) t2
   ON  t1.CO_CNTA_EMPR = T2.CO_CNTA_EMPR
   Where t1.CO_EMPR = @ISCO_EMPR                                      
   And  t1.NU_CNTB_EMPR = @INNU_CNTB_EMPR                 
   And  t1.NU_ANNO = @INNU_ANNO_HIST                                      
   And  t1.NU_MESE <= @INNU_MESE_HIST                                      
   And  t1.CO_CNTA_EMPR = @CSCO_CNTA_EMPR                                     

   And  t1.SI_MVTO_CNTB = 'APR'                                      
   Group By t1.CO_CNTA_EMPR                                   
 End                          
                                       
   If @CSST_NIVE_AJUS = 'DOC' Or @CDFE_DOCU IS NOT NULL                                  
    Begin                     
    Select @VNFA_ACTU = Round(@VNNU_IND1/@VNNU_INDX, 3)                                    
    Select @VNFA_ACTU_0002 = Round(@VNNU_IND2/@VNNU_INDX, 3)                                      
    End                                   
   Else                             
    Begin                                   
    Select @VNFA_ACTU = Round(@VNNU_IND1/@VNNU_IND2, 3)                                    
    Select @VNFA_ACTU_0002 = Round(@VNNU_IND2/@VNNU_IND3, 3)       
    End                                   
                                   
  If @CNNU_SALD != 0.00  /* Si el saldo != a cero */                                      
   Begin                                     
   If @VNIM_SALD_HIST = 0       
     Begin       
      Select @VNIM_SALD_HIST = @CNNU_SALD      
      Select @VNFA_ACTU_0002 = 1.000        
      Select @VNFA_ACTU = 1.000
     End      
    Else 
     Begin
--SELECT @CSCO_CNTA_EMPR, @CNNU_SALD, @CNIM_MESE_ACTU, @VNIM_SALD_HIST, @VNIM_MESE_HIST
      Select @CNNU_SALD = @CNNU_SALD - @CNIM_MESE_ACTU
--      Select @VNIM_SALD_HIST = @VNIM_SALD_HIST - @VNIM_MESE_HIST
      If @VNIM_SALD_HIST - @VNIM_MESE_HIST = 0       
       Begin       
        Select @VNIM_MESE_HIST = 0.00
        Select @VNFA_ACTU_0002 = 1.00
       End      
      Else
        Select @VNIM_SALD_HIST = @VNIM_SALD_HIST - @VNIM_MESE_HIST
     End 
                                   
  -- VALOR ACTUALIZADO DEL MES - VALOR ACTUALIZADO AL MES ANTERIOR
  Select @VNVA_ACTU_MESE = Abs(Round(@CNNU_SALD, 2) * @VNFA_ACTU)
  Select @VNVA_ACTU_ANTE = Abs(Round(IsNull(@VNIM_SALD_HIST, 0), 2) * @VNFA_ACTU_0002)
  
  Select @VNVA_REIN = Round(@CNNU_SALD, 2) * @VNFA_ACTU - ( Round(IsNull(@VNIM_SALD_HIST, 0), 2) * @VNFA_ACTU_0002 + @VNIM_MESE_HIST)

  If (@CSST_VALO_LIMI = 'S' And @CNIM_LIMI > 0)  Or IsNull(@CNIM_VALO_AUXI, 0) > 0                          
  Begin                        
     Select @VNIM_EVAL_LIMI = 0                          
     If @CNIM_VALO_AUXI > 0      
       Select @VNIM_EVAL_LIMI = @CNIM_VALO_AUXI                          
     Else                           
       Select @VNIM_EVAL_LIMI = @CNIM_LIMI                         
   -- EVALUA SI LA MONEDA DE LA CONTAB ORIGEN ES IGUAL A LA MONEDA DEL VALOR LIMITE                          
   -- SI SON DIFERENTES ENTONCES CONVIERTE EL IMPORTE LIMITE A LA MONEDA DE LA CONT. ORIGEN                          
   If @ISCO_MONE != @CSCO_MONE_LIMI                          
     Begin                           
     -- saca moneda                          
     Select @VSCO_MONE_0001 = CO_MON1,                               
     @VSCO_MONE_BA01 = CO_MONE_BAS1                                
     From TMCONV_MONE               
     Where CO_MONE_ORIG = @CSCO_MONE_LIMI                               
     And CO_MONE_DEST = @ISCO_MONE                          
                             
     --- caso transaccional                           
                            
    If @CSST_TIPO_CAMB = 'TRA'                              
      Select @VNFA_CAMB = (Case When @CSST_CNTA_CAMB = 'COM' Then FA_CMPR_OFIC                                
      Else FA_VNTA_OFIC End)                                 
      From TCFACT_CAMB                                 
      Where CO_MONE = @VSCO_MONE_0001                                
      And CO_MONE_BASE = @VSCO_MONE_BA01                              
      And Convert(DateTime, Convert(Varchar, FE_CAMB, 103), 103)  =                                 
      Convert(DateTime, Convert(Varchar, @CDFE_DOCU, 103), 103)                               
                              
    --- caso promedio mensual                          
    If @CSST_TIPO_CAMB = 'PRO'                              
      Select @VNFA_CAMB = (Case When @CSST_CNTA_CAMB = 'COM' Then FA_CAMB_CMPR                                
      Else FA_CAMB_VNTA End)                                 
      From TCFACT_PRME                                 
      Where CO_EMPR = @ISCO_EMPR                              
      And CO_MONE = @VSCO_MONE_0001                                
      And CO_MONE_BASE = @VSCO_MONE_BA01                              
      And NU_ANNO = @INNU_ANNO                                 
      And NU_MESE = @INNU_MESE                                  
                              
    --- caso cierre                           
     If @CSST_TIPO_CAMB = 'CIE'                              
      Select @VNFA_CAMB = (Case When @CSST_CNTA_CAMB = 'COM' Then FA_CAMB_CMPR                                
      Else FA_CAMB_VNTA End)                                 
      From TCFACT_CIER                                 
      Where CO_MONE = @VSCO_MONE_0001                                
      And NU_ANNO = @INNU_ANNO                                 
      And NU_MESE = @INNU_MESE                               
                        
   -- @CSST_TIPO_CAMB (CIE, TRA, PRO)  @CSST_CNTA_CAMB(COM, VEN)                            
                        
      -- ARMA FECHA EN BASE AL A?O Y MES INGRESADO CASO EL NIVEL DE AJUSTE SEA DIFERENTE A 'DOC'                        
      If @CSST_NIVE_AJUS != 'DOC'                          
      Begin                         
      Select @CDFE_DOCU  = Convert(DateTime, '01' + '/' + Convert(VarChar(2),@INNU_MESE) + '/' + CONVERT(VarChar(4),@INNU_ANNO) , 103)                        
      End                         
                        
      Execute SP_CONV_MONE_Q06 @ISCO_EMPR, @CSCO_MONE_LIMI, @INNU_CNTB_EMPR, '', @CSST_CNTA_CAMB,     
      @VNFA_CAMB, @CDFE_DOCU, @VNIM_EVAL_LIMI, 'P', @CSST_TIPO_CAMB, @VNIM_EVAL_LIMI OutPut, @VNVA_0001 OutPut     
     End    
    
     If Round(@CNNU_SALD, 2) * @VNFA_ACTU  > @VNIM_EVAL_LIMI    
       Select @VNVA_REIN = @VNIM_EVAL_LIMI - Round(IsNull(@VNIM_SALD_HIST, 0), 2) * @VNFA_ACTU_0002

  End    
    
  Insert Into #TWMVTO_CNT1    
  (CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, TI_DOCU, NU_DOCU,     
  IM_MVTO_CNTB, FA_ACTU, IM_MVTO_ANTE, FA_ACTU_ANTE, IM_SALD_MESE, FA_ACTU_MESE, IM_SALD_ANTE, FA_ACTU_ANT1,     
  VA_REIN, IM_LIMI )     
  Values                                    
  (@CSCO_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR, @CSTI_DOCU, @CSNU_DOCU,                           
  Round(@VNVA_ACTU_MESE, 2), @VNFA_ACTU, Round(@VNVA_ACTU_ANTE, 2), @VNFA_ACTU_0002, Round(Abs(@CNNU_SALD), 2), Abs(@VNFA_ACTU),                       
  Round(Abs(@VNIM_SALD_HIST), 2), Abs(@VNFA_ACTU_0002), Round(Abs(@VNVA_REIN), 2), @VNIM_EVAL_LIMI)                                    
                                                                               
  End /* Si el saldo != a cero */                                      
                                     
 Fetch CU_TXMVTO_CNTB_I29_2 Into @CSCO_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR,                                     
 @CSTI_DOCU, @CSNU_DOCU, @CNNU_SALD, @CDFE_DOCU, @CNIM_VALO_AUXI, @CSCO_MONE_LIAU,
 @CNIM_MESE_ACTU
 End                                       
 Close CU_TXMVTO_CNTB_I29_2                                      
 Deallocate  CU_TXMVTO_CNTB_I29_2                                      
                                    
 Fetch CU_TXMVTO_CNTB_I29_1 Into @CSCO_CNTA_EMPR, @CSST_NIVE_AJUS, @CSST_VALO_LIMI, @CNIM_LIMI, @CSCO_MONE_LIMI,                       
 @CSST_TIPO_CAMB, @CSST_CNTA_CAMB, @CSCO_CNTA_REIB, @CSCO_CNTA_REIR                                                             
 End                                       
 Close CU_TXMVTO_CNTB_I29_1                                      
 Deallocate  CU_TXMVTO_CNTB_I29_1                               
 End /*FIN @ISTI_REPO = 'AJU', 'TOD'*/                          
                               
 -- CASO INVENTARIOS GRABA AJUSTE                            
                          
 If @ISTI_REPO = 'INV' Or @ISTI_REPO = 'TOD'                             
 Begin                          
 Exec SP_TXMVTO_CNTB_Q39 @ISCO_EMPR, @INNU_CNTB_EMPR, @ISCO_UNID_CNTB,                           
 @INNU_ANNO, @INNU_MESE, @INNU_ANNO_HIST, @INNU_MESE_HIST, @ISST_TIPO_ACTU,                           
 @INNV_INFO_CNTA, @VNFA_ACTU_INVE, @ISCO_MONE, @VSID_CTAS_INVE,           
 @VSID_CTAS_PROD, @VSID_0005, @VSID_COMP, @VSST_GENE_ACTI, @VSST_GENE_LOGI, @VSST_GENE_PROD, @VSST_REEM_ASIE                           
 End                           
                          
 -- SELECT SUMA LAS CUENTAS DE PRODUCCION                           
 Select @VNIM_MVTO_ANTE = 1

 Select @VNIM_MVTO_ANTE = IsNull(Sum(t1.IM_MVTO_ANTE), 1)                          
 From #TWMVTO_CNT1 t1, TMPLAN_EMPR t2                          
 Where t2.CO_CNTA_EMPR = t1.CO_CNTA_EMPR                          
 And t2.ST_TIPO_CUEN = 'PRO'                          
 And t2.CO_EMPR = @ISCO_EMPR               
 And t2.NU_ANNO = 9999                          
                          
                          
 -- SELECT FINAL                           
 Select 'CTAS. PRODUCCION',  t1.CO_CNTA_EMPR, t2.DE_CNTA_EMPR,                           
 t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR, t1.TI_DOCU,                           
 t1.NU_DOCU, t1.IM_MVTO_CNTB, t1.IM_MVTO_ANTE,                       
 (t1.IM_MVTO_ANTE / @VNIM_MVTO_ANTE) * 100,                       
 t1.IM_SALD_MESE, t1.FA_ACTU_MESE, t1.IM_SALD_ANTE, t1.FA_ACTU_ANT1, t1.VA_REIN, t1.IM_LIMI                        
 From #TWMVTO_CNT1 t1, TMPLAN_EMPR t2                          
 Where t2.CO_CNTA_EMPR = t1.CO_CNTA_EMPR                          
 And t1.ST_FLAG IS NULL                          
 And t2.ST_TIPO_CUEN = 'PRO'                          
 And t2.CO_EMPR = @ISCO_EMPR                         
 And t2.NU_ANNO = 9999                          
 Union All                           
 Select 'CTAS. AJUSTADAS', t1.CO_CNTA_EMPR, t2.DE_CNTA_EMPR,                           
 t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR, t1.TI_DOCU,                           
 t1.NU_DOCU, t1.IM_MVTO_CNTB, t1.IM_MVTO_ANTE,                       
 NULL,                      
 t1.IM_SALD_MESE, t1.FA_ACTU_MESE, t1.IM_SALD_ANTE, t1.FA_ACTU_ANT1, t1.VA_REIN, t1.IM_LIMI                            
 From #TWMVTO_CNT1 t1, TMPLAN_EMPR t2                          
 Where t2.CO_CNTA_EMPR = t1.CO_CNTA_EMPR                          
 And t1.ST_FLAG IS NULL                          
 And IsNull(t2.ST_TIPO_CUEN, '') != 'PRO'                          
 And t2.CO_EMPR = @ISCO_EMPR                          
 And t2.NU_ANNO = 9999                          
 Union All                           
 Select 'CTAS. INVENTARIO',  t1.CO_CNTA_EMPR, t2.DE_CNTA_EMPR,                           
 t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR, t1.TI_DOCU,                           
 t1.NU_DOCU, t1.IM_MVTO_CNTB, t1.IM_MVTO_ANTE,                       
 NULL,                       
 NULL, NULL, NULL, NULL, NULL, t1.IM_LIMI                 
 From #TWMVTO_CNT1 t1, TMPLAN_EMPR t2                          
 Where t2.CO_CNTA_EMPR = t1.CO_CNTA_EMPR                          
 And t1.ST_FLAG = 'S'                          
 And t2.CO_EMPR = @ISCO_EMPR                          
 And t2.NU_ANNO = 9999                          
                       
 Order By 1, t1.CO_CNTA_EMPR, t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR, t1.TI_DOCU, t1.NU_DOCU
                                                  
 Return                                        
                                      
/*--------------------------------------- Fin ---------------------------------*/                                      
    
  






GO
